﻿
Public Class [case]
    'action, such as text output, draw some graph
    Public ReadOnly type As UInt32 = 0
    'unicode for the text output
    Public ReadOnly mask As UInt32 = 0
    'extra information, which cannot be handled by an int
    Public ReadOnly meta As bytes = 0

    Public Sub New(ByVal type As UInt32,
                   Optional ByVal mask As UInt32 = 0,
                   Optional ByVal meta As bytes = Nothing)
        copy(Me.type, type)
        copy(Me.mask, mask)
        copy(Me.meta, meta)
    End Sub
End Class
